home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / quicspool / mffiles / logodesign.mf < prev   
Text File  |  1990-10-01  |  4KB  |  171 lines
  1. % $Header: logodesign.mf,v 1.1 88/01/15 12:59:36 simpson Rel $
  2. % $Log:    logodesign.mf,v $
  3. % Revision 1.1  88/01/15  12:59:36  simpson
  4. % initial release
  5. % 
  6. % Revision 0.2  88/01/13  12:16:31  simpson
  7. % removed trademark notice
  8. % 
  9. % Revision 0.1  87/12/11  19:16:34  simpson
  10. % beta test
  11. % 
  12. % RCS $Header: logodesign.mf,v 1.1 88/01/15 12:59:36 simpson Rel $
  13. % Makes the TRW logo!  Whoopee!
  14. def LOGO =
  15. z0=(0,3.91a);
  16.  
  17. y1=y0-1a;
  18. fixpt(z1,z0,250);
  19.  
  20. y2=y1;
  21. over(z2,z1,3.46a);
  22.  
  23. y3=y0;
  24. z3-z2=z0-z1;
  25.  
  26.  
  27. y4=0; fixpt(z4,z0,250);    % the imaginary intersection of left of top and base
  28.  
  29. y5=0; over(z5,z4,1.19a);
  30.  
  31. y6=0; over(z6,z4,2.45a);
  32.  
  33. y7=2.16a;
  34. fixpt(z7,z6,70);
  35.  
  36. y8=y7; z8-z5 = z7-z6;
  37.  
  38.  
  39. fill z0--z1--z2--z3..cycle;   % Top of the T
  40. fill z5--z6--z7--z8..cycle;   % Bottom of the T
  41.  
  42. % The R requires some erasures.  Tricky.
  43.  
  44. y10=0;
  45. over(z10,z4,3.8a);
  46.  
  47. y11=y10;
  48. over(z11,z4,5.01a);
  49.  
  50. y12=2.16a;
  51. fixpt(z12,z11,70);
  52.  
  53. y13=y12;
  54. z13-z10=z12-z11;
  55.  
  56. fill z10--z11--z12--z13..cycle;      % Bottom parallelogram of the R
  57.  
  58. pair bigcenter;     % Center of major (2.51 diam) circle;
  59. bigcenter=((7.60-.26)*a-(2.51a/2),(3.91a-(2.51a/2)));
  60.  
  61. pair littlecenter;  % Center of the minor (1.08 rad) circle;
  62. littlecenter=((7.60-.26)*a-1.08a, (3.91-1.08)*a);
  63.  
  64. y14=3.91a; fixpt(z14,z10,70);
  65. y15=y14-1a; fixpt(z15,z10,70);
  66. y16=y14;  x16 = xpart bigcenter;
  67. y17=y15;  x17 = x16;
  68.  
  69. fill z14--z15--z17--z16..cycle;       % Top left of the R, sort of.
  70.  
  71. pair rvert;    % the imaginary vertex of the R
  72. ypart rvert=2.36a;
  73. fixpt(rvert,z11,70);
  74.  
  75. y18=0; fixpt(z18,rvert,(250+45.5));
  76. y19=0; x19=x18+1.29a;
  77. x20=x18+.56a;
  78. y21=2.15a; fixpt(z21,rvert,(250+45.5));
  79. path bigsemicircle;
  80. bigsemicircle = (halfcircle scaled (2.51a) rotated (-90)) shifted bigcenter;
  81. path crossline; 
  82.   crossline = (x18+0.56a, 0)..(x18+.56a, 3a);
  83. z100 = (x18+0.56a, 3*a*xpart (crossline intersectiontimes bigsemicircle) );
  84. y101 = 2.16a; x101=x100;
  85. y102 = y101;  fixpt(z102, rvert, (250+45.5));
  86.  
  87. fill z18--z19--z100--z101--z102..cycle;   % Bottom right of the R.
  88. fill bigsemicircle--cycle;    % Top right of the R, without the extras.
  89. fill (quartercircle scaled (1.08a*2) shifted littlecenter)--cycle;
  90.  
  91. x103=(7.60-(.26+1.24))*a; y103 = y15;    % Fill in something to carve out
  92. y104=y103; x104 = x103-.31a;
  93. x105=x104; y105 = y104-.31a;
  94. y106=2.16a; x106= x103-(.9/2)*a;
  95. y107=y106; x107=x103;
  96.  
  97. fill z103--z104--z105--z106--z107--cycle; % Now we have to take away the circs
  98.  
  99. path bigecirc, smallecirc;    % The quarter circles to unfill
  100. pair bigecent, smallecent;    % different centers
  101.  
  102. bigecent = (x106,(2.16a+(.9/2)*a));
  103. smallecent = (x104, y105);
  104.  
  105. bigecirc = (((quartercircle rotated -90)scaled .9a) shifted bigecent) -- 
  106. bigecent--cycle;
  107. smallecirc = ((quartercircle scaled (.31a*2)) shifted smallecent) -- smallecent
  108.  --cycle;
  109.  
  110. unfill bigecirc; unfill smallecirc;       %  We can but hope.
  111.  
  112.  
  113. %  The W is a *little* easier
  114.  
  115. z22=(7.6a,3.91a);
  116. z23=(7.6a,2.91a);
  117. z24=((7.6+1.19)*a, 2.91a);
  118. z25-z24=z22-z23;
  119.  
  120. fill z22--z23--z24--z25..cycle;          % Top left rect of W
  121.  
  122. z26=(7.6a,0);
  123. x27=x26;y27=2.16a;
  124. x28=x24;y28=y27;
  125. x29=x28;y29=y28-.33a;
  126. y30=y28; fixpt(z30,z29,70);
  127.  
  128. pair wvert;     % The bottom vertex of the w, imaginary in the hole
  129. wvert=(9.93a,(2.16+.41)*a);
  130.  
  131. y31=y30; fixpt(z31,wvert,(270-21.75));
  132. y32=0; fixpt(z32,wvert,(270-21.75));
  133.  
  134. fill z32--z31--z27--z26..cycle;   % Bottom left of W  (omit 28...30)
  135.  
  136. pair uright;     % The upper right.  Determines where the bottom ends up
  137. uright=(12.82a, 3.91a);
  138.  
  139. x33=xpart wvert; y33=0;
  140. y34=0; fixpt(z34,uright,(270-22.25));
  141. y35=2.16a; fixpt(z35,uright,(270-22.25));
  142. x36=x33; y36=y35;
  143. y37=y36; x37=x22+3.35a;
  144. x38=x37; y38=y37-.33a;
  145. y39=y37; fixpt(z39,z38,70);
  146.  
  147. %show z33,z34,z35,z39,z38,z37,z36;
  148. fill z33--z34--z35--z36..cycle;  % Bottom right of W  (omit 39--38--37)
  149.  
  150. z40=uright;
  151. y41=y40; fixpt(z41,z38,70);
  152. y42=2.91a; fixpt(z42,z38,70);
  153. y43=y42; fixpt(z43,uright,(270-22.5));
  154.  
  155. fill z40--z41--z42--z43..cycle;   % Upper right trapezoid of W
  156.  
  157. z44=(x38,y40);
  158. y45=y44; fixpt(z45,z29,70);
  159. y46=y43; fixpt(z46,z29,70);
  160. z47=(x44,y46);
  161.  
  162. fill z44--z45--z46--z47..cycle;   % Top middle trapezoid of W
  163.  
  164. penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20);
  165. penlabels(21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40);
  166. penlabels(41,42,43,44,45,46,47);
  167. penlabels(100,101,102,103,104,105,106,107);
  168.  
  169. enddef;
  170.  
  171.